home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / oobr / br-c-ft.el next >
Encoding:
Text File  |  1995-05-13  |  4.0 KB  |  112 lines
  1. ;;!emacs
  2. ;;
  3. ;; FILE:         br-c-ft.el
  4. ;; SUMMARY:      OO-Browser C construct handling.
  5. ;; USAGE:        GNU Emacs Lisp Library
  6. ;; KEYWORDS:     c, tools
  7. ;;
  8. ;; AUTHOR:       Bob Weiner
  9. ;; ORG:          Motorola, Inc.
  10. ;;
  11. ;; ORIG-DATE:     3-May-95 at 16:47:05
  12. ;; LAST-MOD:     11-May-95 at 17:06:45 by Bob Weiner
  13. ;;
  14. ;; Copyright (C) 1995  Free Software Foundation, Inc.
  15. ;; See the file BR-COPY for license information.
  16. ;;
  17. ;; This file is part of the OO-Browser.
  18. ;;
  19. ;; DESCRIPTION:  
  20. ;; DESCRIP-END.
  21.  
  22. ;;; ************************************************************************
  23. ;;; Other required Elisp libraries
  24. ;;; ************************************************************************
  25.  
  26. ;;; ************************************************************************
  27. ;;; Public variables
  28. ;;; ************************************************************************
  29.  
  30. (defvar   c-default-classes
  31.   '("[constant]" "[enumeration]" "[function]" "[macro]"
  32.     "[structure]" "[type]" "[union]")
  33.   "*List of default class names of C constructs handled by the OO-Browser.
  34.  
  35. If you add a class to this list, you also need to add appropriate filtering
  36. code for features of the class to \"br-c-tags\".")
  37.  
  38. ;;; ************************************************************************
  39. ;;; Public functions
  40. ;;; ************************************************************************
  41.  
  42. (defun c-add-default-classes ()
  43.   ;; Add to 'system' class table.
  44.   (mapcar
  45.    (function
  46.     (lambda (class)
  47.       (br-add-class class br-null-path nil)))
  48.    c-default-classes))
  49.  
  50. (defun c-build-element-tags ()
  51.   "Create C constructs TAGS file for the current Environment.
  52. This excludes functions.  Call this after building the any language-specific
  53. feature tags file."
  54.   ;; If c-tags have already been added to feature tags, then the feature tags
  55.   ;; buffer ends with ^L.
  56.   (set-buffer (funcall br-find-file-noselect-function br-feature-tags-file))
  57.   (if (or (not (stringp br-tags-file))
  58.       (progn (goto-char (point-max))
  59.          (skip-chars-backward "\n")
  60.          (if (/= (point) (point-min))
  61.              (backward-char 1))
  62.          (= (following-char) ?\^L)))
  63.       nil
  64.     (message "Building C construct index...")
  65. ;    For debugging.
  66. ;    (message "%s %s %s"
  67. ;         (expand-file-name "br-c-tags" br-directory)
  68. ;         br-tags-file
  69. ;         (mapcar 'expand-file-name
  70. ;             (delq nil (append br-sys-search-dirs
  71. ;                       br-lib-search-dirs))))
  72.     (apply 'call-process (expand-file-name "br-c-tags" br-directory)
  73.        nil nil nil
  74.        ;; If no etags program in exec-directory, use one in user's $PATH.
  75.        (let ((etags (expand-file-name "etags" exec-directory)))
  76.          (if (file-executable-p etags) etags "etags"))
  77.        br-tags-file
  78.        (mapcar 'expand-file-name
  79.            (delq nil (append br-sys-search-dirs br-lib-search-dirs))))
  80.     (goto-char (point-max))
  81.     (let ((c-tags-start (point)))
  82.       (insert-file-contents br-tags-file)
  83.       (goto-char (point-max))
  84.       (insert "\^L\n") ;; To mark end of C tags insertion.
  85.       (delete-file br-tags-file)
  86.       (goto-char c-tags-start)
  87.       ;; Remove tag files which have no entries.
  88.       (while (re-search-forward "^\^L\n.*\n\^L\n" nil t)
  89.     (replace-match "\^L\n")
  90.     (forward-line -1)))
  91.     (message "Building C construct index...Done")))
  92.  
  93. (defun c-within-comment-p ()
  94.   "Return non-nil if point is within a multi-line C comment."
  95.   ;; Generally don't have to check whether patterns are matched on single line
  96.   ;; comments  ( // ...) since the regexps to match to will preclude this.
  97.   ;; Ignore comments of the form //***, which look like C comments when
  98.   ;; searching backward but are actually single line comments.
  99.   (save-excursion
  100.     (and (re-search-backward "\\(^\\|[^/]\\)/\\*\\|\\*/" nil t)
  101.      (not (looking-at "\\*/")))))
  102.  
  103. ;;; ************************************************************************
  104. ;;; Private functions
  105. ;;; ************************************************************************
  106.  
  107. ;;; ************************************************************************
  108. ;;; Private variables
  109. ;;; ************************************************************************
  110.  
  111. (provide 'br-c-ft)
  112.